unit dVendedores;

interface
uses
classes,
dObjects;
type
Tvendedores=class(TdObjects)
private
fdtalteracao : tdatetime;
fflagativo : boolean;
fidvendedor : integer;
fnome : string;
fpercomissao : double;
fsenha : string;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property flagativo : boolean read fflagativo write fflagativo;
 property idvendedor : integer read fidvendedor write fidvendedor;
 property nome : string read fnome write fnome;
 property percomissao : double read fpercomissao write fpercomissao;
 property senha : string read fsenha write fsenha;
end;

implementation

constructor Tvendedores.create;
begin
inherited;
clear;
  addPK (['idvendedor']);
  Tablename := 'vendedores';
end;
destructor Tvendedores.destroy;
begin
inherited destroy;
end;
procedure Tvendedores.clear;
begin
 fdtalteracao  :=0;
 fflagativo    :=false;
 fidvendedor   :=0;
 fnome         :='';
 fpercomissao  :=0.0;
 fsenha        :='';
end;


end.
